{***************************************************************
    SpyGestion  Copyright (C) 2008 Christophe KOALI <nature2gas@gmail.com>
    
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
    
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
    
****************************************************************}
unit uGalaxieScan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, BaseGrid, AdvGrid, ComCtrls, StdCtrls, Spin, Buttons,
  ExtCtrls, TransparentPanel, modStatsPlayers, modBaseDeDonnesRapport;

type
  TfrmGestionAdv = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    sgPlanetesSolaire: TAdvStringGrid;
    TransparentPanel1: TTransparentPanel;
    SpeedButton1: TSpeedButton;
    SpinEdit1: TSpinEdit;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    AdvStringGrid1: TAdvStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }

    // copie de pointeur de la form principale
    FStatsPlayer: TCollectionPlayerStats;
    FStatsPlayerFlottes: TCollectionPlayerStats;
    FStatsPlayerRecherche: TCollectionPlayerStats;

    // copie de pointeur
    FBase2Donnees: TCollectionRapportHead;


    procedure InitGrille(Grille: TAdvStringGrid);
    
  public
    { Public declarations }
  end;

var
  frmGestionAdv: TfrmGestionAdv;

implementation

{$R *.dfm}


procedure TfrmGestionAdv.InitGrille(Grille: TAdvStringGrid);
var i: integer;
begin


    // Position de la planète
    Grille.Cells[0, 0] := 'Pos.';
    Grille.CellProperties[0, 0].Alignment := taCenter;
    Grille.ColWidths[0] := 35;

    i := 1;


    Grille.Cells[i, 0] := 'Planète';
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 45;
    Inc(i);

    Grille.Cells[i, 0] := 'Joueur';
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 45;
    Inc(i);

    Grille.Cells[i, 0] := 'Alliance';
    Grille.CellProperties[i, 0].Alignment := taCenter;
    Grille.ColWidths[i] := 45;
    Inc(i);




end;

procedure TfrmGestionAdv.FormCreate(Sender: TObject);
begin


    InitGrille(sgPlanetesSolaire);

end;

end.
